---
title: "Casos reportados de nCoV2019"
author: "Ciencia Abierta, Fuente: nCoV2019_2020_line_list_open"
output: 
  flexdashboard::flex_dashboard:
    orientation: rows
    social: menu
    source_code: embed
---

```{r setup, include = FALSE}
library(flexdashboard)
library(shiny)
library(jsonlite)
library(maptools)
library(ggplot2)
library(tidyr)
library(dplyr)
library(purrr)
library(leaflet)
library(plotly)
library(raster)

sites <- read.csv("data/nCoV2019_2020_line_list_open - outside_Hubei.csv")

sites$country2 <- ifelse(sites$country == "China", "orange","green")


## cases per city 

cases_per_city <- 
  sites %>% 
  group_by(city, country, latitude, longitude, country2) %>% 
  tally()


```

Column {data-width=650}
-----------------------------------------------------------------------

### Casos mundiales

```{r}
leaflet() %>% 
  addTiles() %>% 
  addProviderTiles("CartoDB.Positron") %>%
  #fitBounds(-127.44,24.05,-65.30,50.35) %>% 
  addCircleMarkers(cases_per_city$longitude, 
                   cases_per_city$latitude, 
                   color = cases_per_city$country2, 
                   radius = cases_per_city$n/5, 
                   fill = T,
                   fillOpacity = 0.2,
                   opacity = 0.6,
                   popup = paste(cases_per_city$country,
                                 cases_per_city$city, 
                                 cases_per_city$n,
                                 sep = ", ")) %>%
  addLegend("bottomleft", 
            colors = c("orange","green"),
            labels = c("China",
                       "other"), 
            opacity = 0.8)
```

### Casos en China

```{r}
#create a pop up (onClick)
chinaMap<-getData('GADM',country="CHN",level=1, path = "data/")

china_sr <- 
  sites %>% 
  filter(country == "China")

china_sr_n <- 
  china_sr %>% 
  count(province)


chinaMap$n <- china_sr_n$n[match(chinaMap$NAME_1, china_sr_n$province)]
polygon_popup <- paste0("Provincia: ", chinaMap$NAME_1, "
",
                        "N: ", round(chinaMap$n,2))
#create a color palette to fill the polygons
pal <- colorQuantile("Blues", NULL, n = 5)

map = leaflet() %>% 
  addProviderTiles("CartoDB.Positron") %>% 
  addPolygons(data = chinaMap, 
              fillColor= ~pal(n),
              fillOpacity = 0.4, 
              weight = 2, 
              color = "white",
              popup = polygon_popup)


map
```